home *** CD-ROM | disk | FTP | other *** search
| Text File | 1994-09-27 | 3.0 KB | 9 lines | [TEXT/ttxt] |
- ÛØ û!*
- ) 4.1 [NeXT; R1] (1/20/93 21:43) A g548 < pathname
- unspecific absolute private net vapor scm 4.1 patch patch0151 cl! *source-pathname* / % V +NVˇ»P≠ -Mˇ¸JGf.J,ˇf. - '(- +* g∞¨˛~n $D%@ˇ˛ ~N^*nˇ¸NuN¥ a ZN¥ a` "N¥ a ¢`‹ 0 0+P patch0151.clLN< top-level-form < Q@A g549 < patch use lisp excl defpackage-1 / % @ NVˇ»P≠ -Mˇ¸JGf"J,ˇf" - '"- +&m /~Nî ~N^*nˇ¸NuN¥ a ZN¥ a`÷ 0 0+P < top-level-form < Q@A g550 < patch *patches*ˇ˚ .globally-special. compiler-putprop / % \ .NVˇ»P≠ -Mˇ¸JGf>J,ˇf> - '",ˇ⁄$- +&m /~Nî$m '(*ˇ˛∏¨ˇ¶f
- (- '$D%Fˇ˛ ~N^*nˇ¸NuN¥ a ZN¥ a`∫ 0 0+P < top-level-form < Q@A g551 < 0151 -printing NIL when not accessible in *package* *patches*ˇ˚ / % ~ ?NVˇ»P≠ -Mˇ¸JGfLJ,ˇfL - '"- +N¥ a ˙$m /"*ˇ˛≤¨ˇ¶g8N¥ a ˙(- /* g∞¨˛~n*$D%@ˇ˛ ~N^*nˇ¸NuN¥ a ZN¥ a`¨p"
- N¥ a Ê"N¥ a ¢`“ 0 0+P < top-level-form < Q@A g552 < excl internal-in-package / % > NVˇ»P≠ -Mˇ¸JGf J,ˇf - '"&m +~Nî ~N^*nˇ¸NuN¥ a ZN¥ a`ÿ 0 0+P < top-level-form < Q@A .maybe-print-fast.af209ddd ?4áe char=_2op / % n 7NVˇƒP≠ -Mˇ¸ G f@J,ˇf@"< -@ˇÏ&m '~NîºÄf:"< „ .ˇÏ&m '~NîºÄf$ ,ˇ⁄~N^*nˇ¸NuN¥ a Z-@ˇÏN¥ a .ˇÏ`∞ ~`‹ c 0 ! 0+> @ maybe-print-fast ?4áe@ *print-escape* stream-write-string lexically-visible-function < every
- write-char
- *print-radix* *print-base* - print-fixnum >_2op keywordp *print-case* downcase down find-symbol
- capitalize cap1 no-escapes-needed push-char-mode write-string++
- pop-char-mode / % ¨ ÷NVˇòP≠ -Mˇ¸ G fj-@ˇÏJ,ˇff -@ˇË&l¸ ~NîºÄg ÿ .ˇËºÄgf* fN~N¥ aä( $m '&*ˇ˛ºÉfHt .ˇÏ".ˇË&&m +~Nî ,ˇ⁄~N^*nˇ¸NuN¥ a Z-AˇËN¥ a".ˇË`ä&l˛Ü~Nî( `∞x `¨ - /-DˇÃ".ˇË&m 3~NîºÄgD < ".ˇÏ&m 7~Nît .ˇÏ".ˇË&.ˇÃ&m +~Nî < ".ˇÏ&m 7~Nî ,ˇ⁄~` ˇx ~` ˇp(.ˇË* f $m ;&*ˇ˛ºÉf ¥$m ?&*ˇ˛ rP* f`∞Ån í r * fh∞Ål0(.ˇË < k-Cˇ‹".ˇÏ&m 7~Nî .ˇË&m C~Nî( &.ˇ‹-DˇË .ˇÏ"$&m G~Nî ,ˇ⁄~` ˛‡-Cˇ‹&m K~NîºÄf&(.ˇË&.ˇ‹`å-Cˇ‹&l˛ñ~NîºÄg ‡(.ˇË&.ˇ‹`Ñ ~` ˛¢ ~` ˛öDƒh ∏e ¥&D√hdp8"-Cˇ»&lˇŒ~Nî(.ˇË&.ˇ»$C&* -Cˇ‡&D√hdp@"-Cˇƒ&lˇŒ~Nî(.ˇË&.ˇƒ$C&* -Cˇ¿ &m O~Nî-@ˇ–$m S(*ˇ˛&- W∂ÑfD-m [ˇ‰ºÆˇ–f\$lˇF(*ˇ˛∏Æˇ¿gN .ˇ‡&m _~Nî lˇ™ G o"( `"ºÅf& ~` ˝⁄$m S(*ˇ˛&- c∂Ñf-m gˇ‰`™-Fˇ‰`§∞ÆˇËf‘ .ˇ‡&m k~NîºÄgƒºÆˇ–fzºÆˇ‰g .ˇÏ".ˇ‰&m o~Nî(.ˇ‡&.ˇÏºÆˇ‡g ò$.ˇ‡* fh -Cˇÿ-Dˇ‘~N¥ aä(.ˇ‘& ".ˇÿt &m s~NîºÆˇ‰g .ˇÏ&m w~Nî ,ˇ⁄~` ˝&$m '(*ˇ˛ºÑg ˇz < ”".ˇÏ&m 7~Nî` ˇd -Cˇÿ-Dˇ‘&l˛Ü~Nî(.ˇ‘& ".ˇÿ`ñ"v `ê ~` ¸÷(.ˇË&.ˇ‹` ˝“ xp object 0 ! ! mode s base is-key l A g553 A g554 p 0+>P @ maybe-print-fast ! < internal ! Q
